home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_022_19xx_-_de_Disk_4_of_4_Side_B.d64 / combinat wars.c (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  268 lines
  1. 0 rem"[141]adapted by steven darnold, p.o. box 201  alexandra, new zealand[141]
  2. 1 h[178]0:g[178]0:s[178]0:f[178]0:t[178]3000:[137]6000
  3. 2 [153]"returnload"
  4. 3 [129] f[178]1[164]23
  5. 4 s1[178][181]([187](1)[172]34):[139]s1[178]0[167]4
  6. 5 [153][166]s1);"."
  7. 6 [130]f
  8. 20 c[178]0:r[178]0:d1[178]0:s[178]s[170]1
  9. 42 v[178][181]([187](1)[172]10):[139]v[178]0[167]42
  10. 44 [139]g[178]1[167]v[178]2
  11. 50 a[178][181]([187](1)[172]10):b[178][181]([187](1)[172]10)
  12. 70 a$[178][196](a):b$[178][196](b)
  13. 90 [139]a[178]5[176]b[178]5[167]50
  14. 100 [139]a[172]b[179]10[167]50
  15. 105 [153]"contenergy=";t;"cmd    "
  16. 106 [153]"expended last shot:";l1;"cmd  ":[139]s[177]20[175]t[177]0[167]4000
  17. 109 [139]g[178]1[167][137]7007
  18. 110 [129] n[178]1[164]2[172]v:[153]:[130]
  19. 150 [129]z[178]1[164]31
  20. 160 [153]"def))";a$;" x";b$;" wait>";
  21. 170 [139]r[177][178]1[167]3000
  22. 190 [129]w[178]1[164]75:[130]
  23. 200 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmd        waitcmdcmdcmdcmdcmdcmdcmd";
  24. 205 [139]g[178]1[167]300
  25. 210 [139]c[177]0[167]240
  26. 220 [161]c$:c[178][197](c$)
  27. 230 [139]c[178]0[167]300
  28. 240 [161]d$:d[178][197](d$)
  29. 250 [139]d[178]0[167]300
  30. 260 [139]10[172]c[170]d[178]a[172]b[167]r[178]1
  31. 270 [139]r[178]1[167]160
  32. 280 r[178]2
  33. 300 [130]z
  34. 330 [129]k[178]1[164]10
  35. 332 q[178]25:[141]10000
  36. 336 q[178]20:[141]10000
  37. 338 [130]k
  38. 339 [139]g[178]1[167]7060:q[178]500:[141]10000
  39. 340 [139]h[178]1[167]2000
  40. 350 h[178]1
  41. 380 [153]" we've been hit, captain!!!
  42. 390 q=1500:gosub 10000
  43. 400 print"[154]damage control report:[146]"
  44. 405 print"    all shields are down and have
  45. 410 [153]"suffered irrepairable damage...
  46. 420 print"[155]one more like that and we're through!!!":q=2400:gosub10000
  47. 422 print"[150]sir..."
  48. 423 print "    engineering reports energy levels
  49. 424 [153] "    are decreasing at a dangerous rate!!":q[178]2100:[141]10000
  50. 426 [139]h[178]1[167]l1[178]300
  51. 430 q[178]1250:[141]10000
  52. 435 t[178]t[171]l1
  53. 437 [161]x$:[161]y$:[161]z$
  54. 440 [139]h[178]1[167]2
  55. 460 t[178]t[171]d1
  56. 470 [139]t[179]0[167]7000
  57. 480 [139]s[177]20[167]106
  58. 530 [161] x$:[161] y$:[161] z$
  59. 535 [139]r[178]1[167][137]20
  60. 540 r[178]0:c[178]0:d1[178]0
  61. 550 [153]"ononon"
  62. 560 [129]x[178]1[164]z[170]8
  63. 570 [153]"";
  64. 580 [130]x
  65. 590 [137]190
  66. 2000 [129]k[178]1[164]20
  67. 2252 [151]53280,1:[151]53281,1
  68. 2253 q[178]15:[141]10000
  69. 2254 [151]53280,0:[151]53281,0
  70. 2255 q[178]15:[141]10000
  71. 2256 [130]k
  72. 2258 [153]"load"
  73. 2260 q[178]5000:[141]10000:[137]1
  74. 3000 d1[178]d1[170][181]((z[173]1.8)[174]2):l1[178]d1:p[178]0
  75. 3030 [153]""
  76. 3032 [129]n[178]1[164]2[172]v
  77. 3034 [153]
  78. 3036 [130]n
  79. 3038 n[178]31
  80. 3040 [153]"syscmdcmd";
  81. 3044 [139]r[178]2[167][153]"";
  82. 3048 [139]r[178]2[167][137]3062
  83. 3062 [139]p[178]0[167][137]3200
  84. 3070 [129] i[178]1[164]38
  85. 3090 [153]" cmdcmd";
  86. 3120 [130]i
  87. 3140 [137]460
  88. 3200 [153]"tocmdcmdcmdcmd";:[141] 9000
  89. 3202 [139] n[179]z [175] r[179]2 [167] 3560
  90. 3260 [153]"andcmdcmdcmdcmd";:[141] 9000
  91. 3262 [139] n[179]z [175] r[179]2 [167] 3560
  92. 3265 [153]"andcmdcmdcmdcmd";:[141] 9000
  93. 3267 [139] n[179]z [175] r[179]2 [167] 3560
  94. 3270 [153]"poscmdcmdcmdcmd";:[141] 9000
  95. 3272 [139] n[179]z [175] r[179]2 [167] 3560
  96. 3275 [153]"poscmdcmdcmdcmd";:[141] 9000
  97. 3276 [139] n[179]z [175] r[179]2 [167] 3560
  98. 3330 [153]"newcmdcmdcmdcmd";:[141] 9000
  99. 3332 [139] n[179]z [175] r[179]2 [167] 3560
  100. 3335 [153]"newcmdcmdcmdcmd";:[141] 9000
  101. 3337 [139] n[179]z [175] r[179]2 [167] 3560
  102. 3370 [153]"frewaitcmdcmdcmdcmd";:[141] 9000
  103. 3372 [139] n[179]z [175] r[179]2 [167] 3560
  104. 3375 [153]"frewaitcmdcmdcmdcmd";:[141] 9000
  105. 3377 [139] n[179]z [175] r[179]2 [167] 3560
  106. 3400 [153]"usrwaitcmdcmdcmdcmd";:[141] 9000
  107. 3402 [139] n[179]z [175] r[179]2 [167] 3560
  108. 3405 [153]"usrwaitcmdcmdcmdcmd";:[141] 9000
  109. 3407 [139] n[179]z [175] r[179]2 [167] 3560
  110. 3440 [153]"tab(waitcmdcmdcmdcmd";:[141] 9000
  111. 3560 p[178]1:[137] 3030
  112. 4000 [153]"defsir!":q[178]500:[141]10000
  113. 4005 [153]"long range sensors indicate that there
  114. 4010 print"are no more targets in our area...":q=2000:gosub10000
  115. 4050 gosub5000
  116. 4200 printchr$(142);:print"[154][147] [200][201][199][200][160][195][207][205][205][193][206][196][160][211][197][206][196][211][160][217][207][213][160][212][200][197][201][210][160][195][207][206][199][210][193][212]-"
  117. 4210 print"[213][204][193][212][201][207][206][211][160][198][207][210][160][211][213][195][195][197][211][211][198][213][204][204][217][160][195][207][205][208][204][197][212][201][206][199]
  118. 4220 [153]"(NULL)(NULL)(NULL)(NULL)close(NULL)right$(NULL)(NULL)right$(NULL)(NULL)def...(NULL)(NULL)atn(NULL)str$peek(NULL) asc(NULL)(NULL)closeasc(NULL)(NULL)(NULL)(NULL)val lenatn(NULL)(NULL)(NULL)
  119. 4230 print"[212][207][160][193][195][212][201][207][206]....":q=1500:gosub10000
  120. 4245 printchr$(14);:q=3000:gosub 10000
  121. 4260 print"[147][194]est score so far is:";r1
  122. 4280 print"[154][217]our score is:";t;:ifr1=0then4285
  123. 4283 ift>r1thenprint"[158]   (a new record!)"
  124. 4285 if t<=r1thengoto4300
  125. 4290 r1=t
  126. 4300 q=4000:gosub 10000:t=3000
  127. 4310 printchr$(142);:print"[147]
  128. 4320 [129] y[178]1[164]30
  129. 4330 [153]"sys*     ***     ***     ***     ***     *
  130. 4340 q=35:gosub10000
  131. 4350 print"[150]flashflashflashflashflash
  132. 4355 q[178]35:[141]10000
  133. 4360 [130] y
  134. 4370 [153]"defload important message from fleet hdqtrs
  135. 4380 print"just arrived....":printchr$(142);
  136. 4390 print"[154] [194][197][195][193][213][211][197][160][207][198][160][217][207][213][210][160][210][197][195][197][206][212][160][211][213][195][195][197][211][211], [217][207][213]
  137. 4400 [153]"atn(NULL)valclose(NULL)(NULL)atn(NULL)right$ascright$valstr$close(NULL)(NULL)closeval(NULL)peekatn(NULL)(NULL)close(NULL)(NULL)(NULL)(NULL)closeatn(NULL)(NULL)(NULL)left$val(NULL)
  138. 4410 print"[205][201][211][211][201][207][206].  [208][210][197][211][211] [211][200][201][198][212][146] [212][207] [211][212][193][210][212] [193][199][193][201][206].
  139. 4430 q[178]1200:[141]10000:[153][199](14);
  140. 4450 [146]653,1,1:[146]653,1
  141. 4470 h[178]0
  142. 4480 x[178]5:q[178]300:[141]10000:[153]"load":s[178]0
  143. 4490 [129]w[178]1[164]5
  144. 4500 [153]"defget readycont ***def ";x:x[178]x[171]1:q[178]700:[141]10000
  145. 4510 [130]w:[137]2
  146. 5000 i[178]0:n1[178]ti:j[178]0
  147. 5020 p1[178][181]([187](1)[172]37):d[178]1:s$[178]". "
  148. 5030 p2[178][181]([187](1)[172]37)
  149. 5040 p3[178][181]([187](1)[172]37)
  150. 5045 p[178][181]([187](1)[172]37)
  151. 5060 [153]"openloadnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew"[166]12)"(NULL)tanright$
  152. 5070 print"     ncc-1701   [146]           [169]   [223][146]      "
  153. 5080 print"  [162][162][162][162][162][162][162][162]   [162][162][162][146]  [223]  [209]   [209][209] [209][209][209] [209][209]  [209]  [146][169]
  154. 5090 [153][166]10)"on   "[166]11)"step waitstep(NULL)   waitstep
  155. 5100 printspc(10)"   "spc(10)"[169] [146][169]
  156. 5110 [153][166]10)"   "[166]9)"step waitstep
  157. 5120 printspc(10)"   "spc(8)"[169] [146][169]
  158. 5130 [153][166]10)"   waitnewnewnewnewnewnewnew  waitstep
  159. 5140 print"    [223]                   [223][146]
  160. 5150 [153]"      (NULL)         ncc-1701 wait(
  161. 5160 printspc(9)"[223]              [146][169]
  162. 5165 [153]"defgood work captain!!!    lets go home...
  163. 5190 a$(0)=" ":a$(1)="[158][172]":b$(0)="[167]":b$(1)="[170]":b$(2)="[182]":b$(3)="[161][146]":b$(4)="[181]"
  164. 5200 b$(5)="[180]":b$(6)="[165][146]":b$(7)=" [146]":b$(8)=" ":tn=0
  165. 5220 print""spc(19)a$(i+1)spc(17)a$(i+1)
  166. 5230 iftn>40theni=noti
  167. 5240 print"[158]"b$(j)
  168. 5250 j=j+1.5
  169. 5260 ifj>8thenj=j-8
  170. 5270 print""tab(p2)s$:p2=p2-d:ifp2<dthenp2=37:print"[145]  "
  171. 5280 print""tab(p1)s$:p1=p1-d:ifp1<dthenp1=37:print"[145]  "
  172. 5290 print""tab(p3)s$:p3=p3-d:ifp3<dthenp3=37:print"[145]  "
  173. 5300 print""tab(p)s$:p=p-d:ifp<dthenp=37:print"[145]  "
  174. 5320 tn=tn+1:iftn<85then5220
  175. 5360 return
  176. 6000 poke53280,0:poke53281,0:print"[142][147]"
  177. 6010 fori=1toval(right$(ti$,2)):r=rnd(1):nexti
  178. 6030 print spc(15):print"[154]right [150]here":q=1300:gosub10000
  179. 6040 print"":print:print spc(20):print"     "
  180. 6050 q=500:gosub10000
  181. 6060 print"":print:printspc(20):print" now"
  182. 6090 q=1500:gosub10000
  183. 6100 print"[147][150]":printspc(7);
  184. 6120 for i=1to26
  185. 6130 print" ";
  186. 6140 next
  187. 6150 print
  188. 6160 fori=1to15
  189. 6170 printspc(7);
  190. 6180 print" [146]                         [146]"
  191. 6190 next
  192. 6200 printspc(7)
  193. 6210 for i=1to26
  194. 6220 print" ";
  195. 6230 next
  196. 6240 print"[145][145][145][145][145][145][145][145][145][145]";
  197. 6250 print"[154][146]combination";
  198. 6260 print"[157][157][157][157][157][157][157][157]";:print"wars"
  199. 6270 q=1000:gosub10000
  200. 6280 p=0
  201. 6290 fori=1to3
  202. 6300 print"";
  203. 6310 printspc(3*i)
  204. 6320 forj=1to24
  205. 6330 ifp=1thenprint" ";
  206. 6340 if p=1 then 6360
  207. 6350 print"[158]*";
  208. 6360 nextj
  209. 6370 nexti
  210. 6380 ifp=1then6400
  211. 6390 p=p+1:goto6290
  212. 6400 p=0
  213. 6410 fori=1to5step4
  214. 6420 print"";:printspc(36-i)
  215. 6430 forj=1to24
  216. 6440 ifp=1thenprint" [157][157]";:ifp=1then6470
  217. 6460 print"[159][209][157][157]";
  218. 6470 nextj
  219. 6480 nexti
  220. 6490 ifp=1then6510
  221. 6500 p=p+1:goto6410
  222. 6510 q=1000:gosub10000
  223. 6520 print"[147]top secret message follows...":q=900:gosub10000
  224. 6530 print"[147][129]press shift[146][145][157][157][157][157][157][164][164][164][164][164] to decode."
  225. 6540 print"[154][217][207][213][160][200][193][214][197][160][194][197][197][206][160][199][201][214][197][206][160][193][160][198][201][197][204][196][160][208][210][207][205][207][212][201][207][206]
  226. 6550 [153]"(NULL)(NULL)close(NULL)left$valclose(NULL)atn(NULL)(NULL)close(NULL)ascclosecommander right$(NULL)close(NULL)left$valclose(NULL)val(NULL)(NULL)right$lenval
  227. 6560 print"[207][198][160][212][200][197][160][198][197][196][197][210][193][212][201][207][206].
  228. 6570 [153]"(NULL)(NULL)(NULL)closeatn(NULL)valclose(NULL)(NULL)close(NULL)val(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)closeasc(NULL)valval(NULL)closeleft$str$(NULL)(NULL)(NULL)(NULL)closeatn(NULL)str$
  229. 6580 print"[212][193][203][197][160][195][207][205][205][193][206][196][160][207][198][160][193][160][215][193][210][208][160][211][208][197][197][196][160][211][212][193][210][211][200][201][208].
  230. 6590 [153]"(NULL)(NULL)(NULL)(NULL)close(NULL)right$(NULL)(NULL)right$(NULL)(NULL)closeright$(NULL)closeval(NULL)(NULL)(NULL)val(NULL)val(NULL)(NULL)closeleft$atn(NULL)atn(NULL)str$(NULL)(NULL)(NULL).
  231. 6600 print"[207][206][160][212][200][197][160][215][193][217][160][217][207][213]'[204][204][160][194][197][160][194][210][213][212][193][204][204][217][160][193][212][212][193][195][203][197][196]
  232. 6610 [153]"peek(NULL)closelen(NULL)(NULL)peekright$(NULL)atn(NULL)right$(NULL)(NULL)close(NULL)(NULL)(NULL)(NULL)valstr$(NULL)val(NULL)close(NULL)atn(NULL)(NULL)lenleft$valstr$closepeek(NULL)
  233. 6620 print"[203][204][201][206][199][207][206][160][198][207][210][195][197][211][160][203][206][207][215][206][160][212][207][160][194][197][160][201][206][160][212][200][197][160][193][210][197][193].
  234. 6630 [153]"(NULL)(NULL)(NULL)close(NULL)(NULL)(NULL)(NULL)right$(NULL)valclosepeek(NULL)close(NULL)(NULL)(NULL)(NULL)right$str$right$(NULL)chr$close(NULL)left$valcloseatn(NULL)(NULL)(NULL)val(NULL)close(NULL)(NULL)
  235. 6640 print"[212][200][197][160][195][207][205][194][201][206][193][212][201][207][206][211][160][201][206][211][201][196][197][160][212][200][197][205].
  236. 6645 [153]"defthenval (NULL) atn (NULL) (NULL) (NULL) valwaitfnoncmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdtototototototototototototo";
  237. 6647 [153][163]22)"def))) 6 x 7 waitoncmdcmdcmdcmdcmdcmdcmdtototototototo>cont
  238. 6650 printspc(5)"[154][203][197][217]-[201][206] [150]42[154] [212][207] [196][197][211][212][210][207][217] [212][200][201][211] [212][207][210][208][197][196][207].
  239. 6660 [153][166]5)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  240. 6690 print"[129][201][198][160][217][207][213]'[210][197][160][210][197][193][196][217][160][212][207][160][211][212][193][210][212], [208][210][197][211][211] [211][200][201][198][212][146][145][157][157][157][157][157][164][164][164][164][164].
  241. 6700 [146]653,1,1:[146]653,1
  242. 6710 [153][199](14);
  243. 6720 [146]653,1,1:[146]653,1
  244. 6730 [153][199](142);
  245. 6740 [153]"loadhere they come, captain!!
  246. 6750 q=900:gosub10000
  247. 6760 goto 2
  248. 7000 g=1:goto20
  249. 7005 g=1:goto20
  250. 7007 q=1100:gosub 10000
  251. 7010 print "damage control report:[146]"
  252. 7020 print"energy levels too low...all reserves
  253. 7030 [153]"shunted to life support systems...
  254. 7040 q=1750:gosub10000
  255. 7045 print"[150]report from communications:[146]
  256. 7050 [153]"sir.... the communications officer
  257. 7055 print"wishes to inform you that the klingons
  258. 7056 [153]"do not accept our surrender...
  259. 7058 q=2100:gosub10000
  260. 7059 print"":goto110
  261. 7060 goto2000
  262. 9000 ifh=2thenreturn
  263. 9020 n=n-3
  264. 9025 ifr=2thenreturn
  265. 9040 return
  266. 10000 for d=1 to q:next d
  267. 10020 return
  268.